home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macros.arc / MOVX.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  1.2 KB  |  16 lines
  1.  
  2. *                                                                               
  3. *MOVE DOUBLE FROM A TO B                                                        
  4. *                                                                               
  5. MOVX   $MACRO   A,B      MOVE DOUBLE                                            
  6.        $IF  A.L=0        A IN AC                                                
  7.        SACH XR0,0                                                               
  8.        SACL XR1,0        SAVE AC TO XR0                                         
  9.        LAR  AR0,XR0      TO AR0                                                 
  10.        LARP AR0          SELECT AR0                                             
  11.        LDAX *            LOAD *                                                 
  12.        $ELSE                                                                    
  13.        LDAX :A:          LOAD DOUBLE :A:                                        
  14.        $ENDIF                                                                   
  15.        SACX :B:          STORE DOUBLE :A:                                       
  16.        $END